home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / h / highspeedpascalv2.0b.dms / highspeedpascalv2.0b.adf / Demos / Fibonacci.pas < prev    next >
Pascal/Delphi Source File  |  1991-12-31  |  496b  |  24 lines
  1. (* Recursive Fibonacci calculation. 26.06.90 *)
  2. {$R-,S+}
  3.  
  4. program Fibonacci(input, output);
  5.  
  6. function fib(n : LongInt) : LongInt;
  7. begin
  8.   if n <= 1 then fib := n else fib := fib(n-1) + fib(n-2);
  9. end;
  10.  
  11. var
  12.   n : LongInt;
  13.  
  14. begin
  15.   Writeln('Calculate some Fibonacci numbers');
  16.   If RunFromMemory then
  17.     Writeln('You can stop a calculation by pressing both shift keys');
  18.   Writeln;
  19.   repeat
  20.     write('Enter number : ');  read(n);  writeln;
  21.     writeln('Result       = ',fib(n))
  22.   until n = 0
  23. end.
  24.